home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / turbwind.arc / DBASWIND.PRG next >
Encoding:
Text File  |  1985-10-14  |  5.9 KB  |  218 lines
  1. *
  2. *                 demo for Turbo_Timer_Window V1.0
  3. *
  4. *                 7/24/85
  5. *
  6. *                 Michael Ax  (718) 278-6079
  7. *
  8. *               have TurbWind.Com resident before you run this
  9. *
  10. set talk off
  11. set echo off
  12. set prin off
  13. set func 9 to 'Quit'
  14. l=70
  15. delay='log(1000)*log(1000)+log(10000)*log(10000)-25'
  16. clear
  17. text
  18.  
  19.  
  20. ██  ██    ██
  21. ██  ██
  22. ██  ██   ███
  23. ██████    ██
  24. ██  ██    ██
  25. ██  ██    ██
  26. ██  ██   ████
  27. endtext
  28. @ 0,l say '0S'
  29. w=&delay
  30. clear
  31. text
  32.  
  33.  
  34.  
  35.  
  36.       ███
  37.        ██
  38.        ██ ██   ████   ██   ██
  39.        ███ ██ ██  ██  ██ █ ██
  40.        ██  ██ ██  ██  ███████
  41.        ██  ██ ██  ██  ███████
  42.       ███  ██  ████    ██ ██
  43. endtext
  44. @ 0,l say '1S'
  45. w=&delay
  46. clear
  47. text
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.                          ████   ██ ███   ████
  56.                             ██   ███ ██ ██  ██
  57.                          █████   ██  ██ ██████
  58.                         ██  ██   ██     ██
  59.                          ███ ██ ████     ████
  60. endtext
  61. @ 0,l say '2S'
  62. w=&delay
  63. clear
  64. text
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.                                         ██  ██   ████   ██  ██
  72.                                         ██  ██  ██  ██  ██  ██
  73.                                         ██  ██  ██  ██  ██  ██
  74.                                          █████  ██  ██  ██  ██
  75.                                             ██   ████    ███ ██
  76.                                         █████
  77. endtext
  78. @ 0,l say '3S'
  79. w=&delay
  80. clear
  81. @ 0,l say '0l'
  82. @ 0,l say '0l'
  83. @ 0,l say '0l'
  84. @ 0,l say '1l'
  85. @ 0,l say '1l'
  86. @ 0,l say '1l'
  87. @ 0,l say '2l'
  88. @ 0,l say '2l'
  89. @ 0,l say '2l'
  90. @ 0,l say '3l'
  91. @ 0,l say '3l'
  92. @ 0,l say '3l'
  93. @ 11,66 say ','
  94. @ 13,50 say 'this is a 4 screen demo.'
  95. @ 15,60 say 'hit any key'
  96. set cons off
  97. wait
  98. set cons on
  99. @ 0,l say '1l'
  100. @ 0,l say '2l'
  101. @ 0,l say '3l'
  102. @ 0,l say '1l'
  103. @ 0,l say '2l'
  104. @ 0,l say '3l'
  105. @ 0,l say '0l'
  106. @ 0,l say '0l'
  107. @ 0,l say '0l'
  108. @ 0,l say '2l'
  109. @ 0,l say '3l'
  110. @ 0,l say '2l'
  111. @ 0,l say '3l'
  112. @ 0,l say '2l'
  113. @ 0,l say '3l'
  114. @ 0,l say '0l'
  115. @ 0,l say '0l'
  116. @ 0,l say '1l'
  117. @ 0,l say '2l'
  118. @ 0,l say '3l'
  119. @ 0,l say '1l'
  120. @ 0,l say '2l'
  121. @ 0,l say '3l'
  122. @ 0,l say '0l'
  123. @ 12,15 say 'and BYE.'
  124. text
  125.  
  126.                demo for Turbo_Timer_Window V1.0
  127.  
  128.                7/24/85
  129.  
  130.                Michael Ax  (718) 278-6079
  131.  
  132.  
  133.  
  134.        Quit dBase ? (Y/N)
  135. endt
  136. set cons off
  137. wait to w
  138. set cons on
  139. @ 22,0
  140. if uppe(w)='Y'
  141.  clear
  142.  ? 'Bye'
  143.  set cons off
  144.  quit
  145. endif
  146. *
  147. clear
  148. text
  149.                                                          COMMAND AREA ^^
  150.    ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██
  151.     ████    ████    ████    ████    ████    ████    ████    ████    ████
  152.   ████████████████████████████████████████████████████████████████████████
  153.     ████    ████    ████    ████    ████    ████    ████    ████    ████
  154.    ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██
  155.  
  156.    ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██
  157.     ████    ████    ████    ████    ████    ████    ████    ████    ████
  158.     ████    ████    ████    ████    ████    ████    ████    ████    ████
  159.    ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██
  160.    ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██
  161.     ████    ████    ████    ████    ████    ████    ████    ████    ████
  162.     ████    ████    ████    ████    ████    ████    ████    ████    ████
  163.    ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██
  164.  
  165.    ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██
  166.     ████    ████    ████    ████    ████    ████    ████    ████    ████
  167.   ███████████████████████████████████████████████████████████████████████
  168.     ████    ████    ████    ████    ████    ████    ████    ████    ████
  169.    ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██
  170.                    Hit Esc to get out of this mess    (then F9 to Quit)
  171. endtext
  172. @ 0,l say '0S'
  173. w=&delay
  174. clear
  175. text
  176.                                                          COMMAND AREA ^^
  177.    █  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  █
  178.     █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █
  179.      ████    ████    ████    ████    ████    ████    ████    ████    ████
  180.    ███  ██████  ██████  ██████  ██████  ██████  ██████  ██████  ██████  ███
  181.    ███  ██████  ██████  ██████  ██████  ██████  ██████  ██████  ██████  ███
  182.    █  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  █
  183.     █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █
  184.      ████    ████    ████    ████    ████    ████    ████    ████    ████
  185.      ████    ████    ████    ████    ████    ████    ████    ████    ████
  186.     █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █
  187.     █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █
  188.      ████    ████    ████    ████    ████    ████    ████    ████    ████
  189.      ████    ████    ████    ████    ████    ████    ████    ████    ████
  190.     █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █
  191.    █  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  █
  192.    ███  ██████  ██████  ██████  ██████  ██████  ██████  ██████  ██████  ███
  193.    ███  ██████  ██████  ██████  ██████  ██████  ██████  ██████  ██████  ███
  194.      ████    ████    ████    ████    ████    ████    ████    ████    ████
  195.     █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █  █ ██ █
  196.    █  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  ██  █
  197.                    Hit Esc to get out of this mess    (then F9 to Quit)
  198. endtext
  199. @ 0,l say '1S'
  200. w=&delay
  201. clear
  202. set escape on
  203. do while .t.
  204.  @ 0,l say '0l'
  205.  @ 0,l say '1l'
  206.  @ 0,l say '0l'
  207.  @ 0,l say '1l'
  208.  @ 0,l say '0l'
  209.  @ 0,l say '1l'
  210.  @ 0,l say '0l'
  211.  @ 0,l say '1l'
  212. enddo
  213. * see dbase loop?
  214. *
  215. * at/deskpro users: the program will work at higher clockspeeds too, just
  216. * be sure that the delay time between @...say Cmd and Clear is long enough
  217. *
  218.